home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / ABS.LI next >
Text File  |  1993-10-16  |  258b  |  11 lines
  1. #    abs(x) is the absolute value function of x. The value of abs(x) 
  2. #    is real number >=0. abs(x)=|x|.
  3. #    e.g. abs(-2) gives 2, abs(-i) gives 1
  4.  
  5. abs(zero) := zero
  6. abs(e) := e
  7. abs(pi) := pi
  8. abs(inf) := inf
  9. abs(-zero) := zero
  10. abs(x_) := if(x>0, x, -x)
  11.